//DBGRID_SOMENTE_MINUSCULO

void __fastcall TForm1::DBGrid1KeyPress(TObject *Sender,

char &Key)

{

Key=AnsiLowerCase(Key)[1];

}